home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
game
/
map_quiz
/
a_japan.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
16KB
|
375 lines
1000 ' ******************************************************************
1010 ' * *
1020 ' * :::::::::::: A_JAPAN.BAS :::::::::::::: *
1030 ' * Programmed By T.K.Mosaku *
1040 ' * ~~~~~~~~~~~~~~~~~~~~~~~~ *
1050 ' ******************************************************************
1060 '
1070 '** 画面表示 **
1080 '
1090 LOAD@"D_JMAP.TIF", (1, 1):CLS 4
1100 LOAD@"F_SWICH2.TIF",(28, 39)
1110 LOAD@"F_SWICH3.TIF",(164,39)
1120 '
1130 '** メニュ- 画面 **
1140 *MENU_GAMEN
1150 CLS 4:SIR=0
1160 LOCATE 61,2 :COLOR 2:PRINT"県名クイズ"
1170 LOCATE 55,4 :COLOR 2:PRINT" メニュ- "
1180 LOCATE 55,6 :COLOR 2:PRINT"何問に挑戦しますか。"
1190 LOCATE 57,8 :COLOR 1:PRINT"左クリックして"
1200 LOCATE 57,9 :COLOR 1:PRINT"下から選んで下さい。"
1210 LOCATE 55,11:COLOR 2:PRINT"君は?"
1220 LOCATE 57,13:COLOR 2:PRINT"どの位答えられるか。"
1230 LOCATE 55,16:COLOR 2:PRINT" 問題の数 "
1240 LOCATE 58,18:COLOR 2:PRINT" 5問 10問 20問"
1250 LOCATE 58,19:COLOR 2:PRINT" 30問 40問 "
1260 MOZI=0
1270 '
1280 MOUSE 0:MOUSE 1,596,353,1
1290 '
1300 '** メニュ- 選択 **
1310 X=MOUSE(4,0):Y=MOUSE(5,0)
1320 IF X>169 AND X<193 AND Y>61 AND Y<71 THEN SIR=1 :GOTO *SIRABERU
1330 IF X>39 AND X<60 AND Y>50 AND Y<69 THEN GOTO *MENU_1
1340 IF X>73 AND X<93 AND Y>50 AND Y<69 THEN GOTO *OWARI_E
1350 IF X>475 AND X<501 AND Y>344 AND Y<355 THEN PNO= 5:GOTO *MOZI
1360 IF X>523 AND X<550 AND Y>344 AND Y<355 THEN PNO=10:GOTO *MOZI
1370 IF X>560 AND X<600 AND Y>344 AND Y<355 THEN PNO=20:GOTO *MOZI
1380 IF X>475 AND X<501 AND Y>363 AND Y<375 THEN PNO=30:GOTO *MOZI
1390 IF X>523 AND X<550 AND Y>363 AND Y<375 THEN PNO=40:GOTO *MOZI
1400 GOTO 1310
1410 '
1420 '** 画面設定 **
1430 *MOZI
1440 CLS 4
1450 LOCATE 61,2 :COLOR 2:PRINT"県名クイズ"
1460 LOCATE 55,4 :COLOR 2:PRINT"問 題"
1470 LOCATE 61,8 :COLOR 2:PRINT"左クリックして"
1480 LOCATE 61,9 :COLOR 2:PRINT"下さい。"
1490 LOCATE 55,11:COLOR 2:PRINT"答 え"
1500 LOCATE 55,16:COLOR 2:PRINT"今までの成績"
1510 LOCATE 57,18:COLOR 2:PRINT"解答数"
1520 LOCATE 57,19:COLOR 2:PRINT"正答率 %"
1530 IF MOZI=1 THEN GOTO 3780
1540 '
1550 '** MAIN LOOTINE **
1560 CY=0:CN=0:CCN=0:DIM KIR(PNO-1):DIM NFW(PNO):KIRN=0:QQN=0
1570 '
1580 MOUSE 5:MOUSE 0
1590 MOUSE 1,596,353,1:MOUSE 4,25,36,382,412
1600 '
1610 RANDOMIZE TIME
1620 NFW(0)=INT(RND*48)
1630 T=1
1640 IF CCN=PNO THEN GOTO 3610
1650 N=INT(RND*47)+1
1660 FOR J=0 TO T-1
1670 IF NFW(J)=N THEN GOTO 1650
1680 NEXT J
1690 NFW(T)=N:QQ=N
1700 MOUSE 5:MOUSE 0
1710 MOUSE 1,382,412,1:MOUSE 4,25,36,382,421
1720 LOCATE 55,13:PRINT" "
1730 TTN=0:BN=0
1740 IF QQ=<10 THEN Q=QQ :GOTO *M0
1750 IF QQ>10 AND QQ=<20 THEN Q=QQ-10:GOTO *M1
1760 IF QQ>20 AND QQ=<30 THEN Q=QQ-20:GOTO *M2
1770 IF QQ>30 AND QQ=<40 THEN Q=QQ-30:GOTO *M3
1780 IF QQ>40 AND QQ<50 THEN Q=QQ-40:GOTO *M4
1790 CCN=CCN+1:T=T+1:GOTO 1640
1800 T=T+1:GOTO 1640
1810 '
1820 *M0:ON Q GOTO *A1, *A2, *A3, *A4, *A5, *A6, *A7, *A8, *A9, *A10
1830 *M1:ON Q GOTO *A11,*A12,*A13,*A14,*A15,*A16,*A17,*A18,*A19,*A20
1840 *M2:ON Q GOTO *A21,*A22,*A23,*A24,*A25,*A26,*A27,*A28,*A29,*A30
1850 *M3:ON Q GOTO *A31,*A32,*A33,*A34,*A35,*A36,*A37,*A38,*A39,*A40
1860 *M4:ON Q GOTO *A41,*A42,*A43,*A44,*A45,*A46,*A47
1870 '
1880 *A1 :A$="長崎県":XP=46 :YP=364 :GOTO *SENTAKU
1890 *A2 :A$="佐賀県":XP=72 :YP=341 :GOTO *SENTAKU
1900 *A3 :A$="鹿児島":XP=79 :YP=376 :GOTO *SENTAKU
1910 *A4 :A$="島根県":XP=85 :YP=291 :GOTO *SENTAKU
1920 *A5 :A$="福岡県":XP=84 :YP=335 :GOTO *SENTAKU
1930 *A6 :A$="熊本県":XP=86 :YP=354 :GOTO *SENTAKU
1940 *A7 :A$="大分県":XP=93 :YP=340 :GOTO *SENTAKU
1950 *A8 :A$="宮崎県":XP=94 :YP=364 :GOTO *SENTAKU
1960 *A9 :A$="山口県":XP=103 :YP=320 :GOTO *SENTAKU
1970 *A10:A$="愛媛県":XP=124 :YP=340 :GOTO *SENTAKU
1980 *A11:A$="広島県":XP=126 :YP=308 :GOTO *SENTAKU
1990 *A12:A$="鳥取県":XP=132 :YP=258 :GOTO *SENTAKU
2000 *A13:A$="高知県":XP=140 :YP=339 :GOTO *SENTAKU
2010 *A14:A$="岡山県":XP=148 :YP=305 :GOTO *SENTAKU
2020 *A15:A$="香川県":XP=150 :YP=322 :GOTO *SENTAKU
2030 *A16:A$="徳島県":XP=159 :YP=330 :GOTO *SENTAKU
2040 *A17:A$="兵庫県":XP=166 :YP=299 :GOTO *SENTAKU
2050 *A18:A$="滋賀県":XP=168 :YP=258 :GOTO *SENTAKU
2060 *A19:A$="和歌山":XP=180 :YP=333 :GOTO *SENTAKU
2070 *A20:A$="京都府":XP=183 :YP=298 :GOTO *SENTAKU
2080 *A21:A$="大阪府":XP=184 :YP=310 :GOTO *SENTAKU
2090 *A22:A$="奈良県":XP=191 :YP=318 :GOTO *SENTAKU
2100 *A23:A$="三重県":XP=200 :YP=310 :GOTO *SENTAKU
2110 *A24:A$="福井県":XP=200 :YP=281 :GOTO *SENTAKU
2120 *A25:A$="石川県":XP=206 :YP=272 :GOTO *SENTAKU
2130 *A26:A$="岐阜県":XP=209 :YP=289 :GOTO *SENTAKU
2140 *A27:A$="愛知県":XP=217 :YP=302 :GOTO *SENTAKU
2150 *A28:A$="富山県":XP=219 :YP=265 :GOTO *SENTAKU
2160 *A29:A$="長野県":XP=233 :YP=280 :GOTO *SENTAKU
2170 *A30:A$="静岡県":XP=236 :YP=306 :GOTO *SENTAKU
2180 *A31:A$="山梨県":XP=243 :YP=288 :GOTO *SENTAKU
2190 *A32:A$="新潟県":XP=251 :YP=249 :GOTO *SENTAKU
2200 *A33:A$="群馬県":XP=251 :YP=270 :GOTO *SENTAKU
2210 *A34:A$="埼玉県":XP=257 :YP=278 :GOTO *SENTAKU
2220 *A35:A$="栃木県":XP=267 :YP=264 :GOTO *SENTAKU
2230 *A36:A$="山形県":XP=273 :YP=218 :GOTO *SENTAKU
2240 *A37:A$="千葉県":XP=277 :YP=298 :GOTO *SENTAKU
2250 *A38:A$="秋田県":XP=278 :YP=190 :GOTO *SENTAKU
2260 *A39:A$="福島県":XP=279 :YP=244 :GOTO *SENTAKU
2270 *A40:A$="茨城県":XP=279 :YP=275 :GOTO *SENTAKU
2280 *A41:A$="神奈川":XP=280 :YP=345 :GOTO *SENTAKU
2290 *A42:A$="青森県":XP=287 :YP=165 :GOTO *SENTAKU
2300 *A43:A$="宮城県":XP=288 :YP=217 :GOTO *SENTAKU
2310 *A44:A$="東京都":XP=295 :YP=325 :GOTO *SENTAKU
2320 *A45:A$="岩手県":XP=299 :YP=187 :GOTO *SENTAKU
2330 *A46:A$="北海道":XP=314 :YP=95 :GOTO *SENTAKU
2340 *A47:A$="沖縄県":XP=60: :YP=262 :GOTO *SENTAKU
2350 '
2360 *SENTAKU
2370 IF TTN=0 THEN GOTO *WRITE
2380 IF TTN=1 THEN GOTO *WRITE_NO
2390 IF TTN=2 THEN GOTO *SIRABE_WRITE
2400 '
2410 *WRITE
2420 LINE(441,101)-(601,146),PSET,%13,BF
2430 SYMBOL(466,110),A$,2,2,3,0,PSET,8,10
2440 GOTO 2480
2450 '
2460 *POINT
2470 MOUSE 5:MOUSE 0:MOUSE 1,X,Y,1: MOUSE 4,27,38,396,426:GOTO 2490
2480 MOUSE 5:MOUSE 0:MOUSE 1,337,364,1:MOUSE 4,27,3,396,426
2490 B=1
2500 X=MOUSE(4,0):Y=MOUSE(5,0)
2510 IF X>169 AND X<193 AND Y>61 AND Y<71 THEN GOTO *SIRABERU
2520 IF X>200 AND X<223 AND Y>61 AND Y<71 THEN BN=0 :GOTO *MODORU
2530 IF X>39 AND X<60 AND Y>50 AND Y<69 THEN GOTO *MENU_E
2540 IF X>73 AND X<93 AND Y>50 AND Y<69 THEN GOTO *OWARI_E
2550 IF X>42 AND X<50 AND Y>360 AND Y<368 THEN TT=1 :GOTO *BUNKI'長 崎
2560 IF X>68 AND X<76 AND Y>337 AND Y<345 THEN TT=2 :GOTO *BUNKI'佐 賀
2570 IF X>75 AND X<83 AND Y>372 AND Y<380 THEN TT=3 :GOTO *BUNKI'鹿児島
2580 IF X>81 AND X<89 AND Y>287 AND Y<295 THEN TT=4 :GOTO *BUNKI'島 根
2590 IF X>80 AND X<88 AND Y>331 AND Y<339 THEN TT=5 :GOTO *BUNKI'福 岡
2600 IF X>82 AND X<90 AND Y>350 AND Y<358 THEN TT=6 :GOTO *BUNKI'熊 本
2610 IF X>89 AND X<97 AND Y>336 AND Y<344 THEN TT=7 :GOTO *BUNKI'大 分
2620 IF X>90 AND X<98 AND Y>360 AND Y<368 THEN TT=8 :GOTO *BUNKI'宮 崎
2630 IF X>99 AND X<107 AND Y>316 AND Y<324 THEN TT=9 :GOTO *BUNKI'山 口
2640 IF X>120 AND X<128 AND Y>336 AND Y<344 THEN TT=10:GOTO *BUNKI'愛 媛
2650 IF X>122 AND X<130 AND Y>304 AND Y<312 THEN TT=11:GOTO *BUNKI'広 島
2660 IF X>128 AND X<136 AND Y>254 AND Y<262 THEN TT=12:GOTO *BUNKI'鳥 取
2670 IF X>136 AND X<144 AND Y>335 AND Y<343 THEN TT=13:GOTO *BUNKI'高 知
2680 IF X>144 AND X<152 AND Y>301 AND Y<309 THEN TT=14:GOTO *BUNKI'岡 山
2690 IF X>146 AND X<154 AND Y>318 AND Y<326 THEN TT=15:GOTO *BUNKI'香 川
2700 IF X>155 AND X<163 AND Y>326 AND Y<334 THEN TT=16:GOTO *BUNKI'徳 島
2710 IF X>162 AND X<170 AND Y>295 AND Y<303 THEN TT=17:GOTO *BUNKI'兵 庫
2720 IF X>164 AND X<172 AND Y>253 AND Y<261 THEN TT=18:GOTO *BUNKI'滋 賀
2730 IF X>176 AND X<184 AND Y>329 AND Y<337 THEN TT=19:GOTO *BUNKI'和歌山
2740 IF X>179 AND X<187 AND Y>294 AND Y<302 THEN TT=20:GOTO *BUNKI'京 都
2750 IF X>180 AND X<187 AND Y>306 AND Y<314 THEN TT=21:GOTO *BUNKI'大 阪
2760 IF X>187 AND X<195 AND Y>314 AND Y<322 THEN TT=22:GOTO *BUNKI'奈 良
2770 IF X>196 AND X<204 AND Y>306 AND Y<314 THEN TT=23:GOTO *BUNKI'三 重
2780 IF X>196 AND X<204 AND Y>277 AND Y<285 THEN TT=24:GOTO *BUNKI'福 井
2790 IF X>202 AND X<210 AND Y>268 AND Y<276 THEN TT=25:GOTO *BUNKI'石 川
2800 IF X>205 AND X<213 AND Y>285 AND Y<293 THEN TT=26:GOTO *BUNKI'岐 阜
2810 IF X>213 AND X<221 AND Y>298 AND Y<306 THEN TT=27:GOTO *BUNKI'愛 知
2820 IF X>215 AND X<223 AND Y>261 AND Y<269 THEN TT=28:GOTO *BUNKI'富 山
2830 IF X>229 AND X<237 AND Y>276 AND Y<284 THEN TT=29:GOTO *BUNKI'長 野
2840 IF X>232 AND X<240 AND Y>302 AND Y<310 THEN TT=30:GOTO *BUNKI'静 岡
2850 IF X>239 AND X<247 AND Y>284 AND Y<292 THEN TT=31:GOTO *BUNKI'山 梨
2860 IF X>247 AND X<255 AND Y>245 AND Y<253 THEN TT=32:GOTO *BUNKI'新 潟
2870 IF X>247 AND X<255 AND Y>264 AND Y<272 THEN TT=33:GOTO *BUNKI'群 馬
2880 IF X>253 AND X<261 AND Y>274 AND Y<282 THEN TT=34:GOTO *BUNKI'埼 玉
2890 IF X>263 AND X<271 AND Y>260 AND Y<268 THEN TT=35:GOTO *BUNKI'栃 木
2900 IF X>269 AND X<277 AND Y>214 AND Y<222 THEN TT=36:GOTO *BUNKI'山 形
2910 IF X>273 AND X<281 AND Y>294 AND Y<303 THEN TT=37:GOTO *BUNKI'千 葉
2920 IF X>274 AND X<282 AND Y>186 AND Y<194 THEN TT=38:GOTO *BUNKI'秋 田
2930 IF X>275 AND X<284 AND Y>240 AND Y<248 THEN TT=39:GOTO *BUNKI'福 島
2940 IF X>275 AND X<283 AND Y>271 AND Y<279 THEN TT=40:GOTO *BUNKI'茨 城
2950 IF X>276 AND X<284 AND Y>341 AND Y<349 THEN TT=41:GOTO *BUNKI'神奈川
2960 IF X>283 AND X<291 AND Y>161 AND Y<169 THEN TT=42:GOTO *BUNKI'青 森
2970 IF X>284 AND X<292 AND Y>213 AND Y<221 THEN TT=43:GOTO *BUNKI'宮 城
2980 IF X>291 AND X<299 AND Y>321 AND Y<329 THEN TT=44:GOTO *BUNKI'東 京
2990 IF X>295 AND X<304 AND Y>183 AND Y<191 THEN TT=45:GOTO *BUNKI'岩 手
3000 IF X>310 AND X<318 AND Y>91 AND Y<99 THEN TT=46:GOTO *BUNKI'北海道
3010 IF X>56 AND X<64 AND Y>258 AND Y<266 THEN TT=47:GOTO *BUNKI'沖 縄
3020 IF B=1 THEN 3030 ELSE 2500
3030 'MOUSE 5:MOUSE 0
3040 'MOUSE 1,382,412,1:MOUSE 4,25,36,382,412
3050 B=B+1
3060 GOTO 2500
3070 '
3080 *BUNKI
3090 IF BN=0 THEN *QUIZ ELSE *SIRABE
3100 *QUIZ
3110 IF QQ=TT THEN *YES ELSE *NO
3120 *SIRABE
3130 TTN=2:GOTO *CHECK
3140 '
3150 *YES
3160 CY=CY+1
3170 LOCATE 57,13:COLOR 1:PRINT"正解です。 "
3180 PCMPLAY YES_S%,120
3190 GOSUB *COUNT
3200 WAIT 100
3210 IF QQN=1 THEN GOTO 3810
3220 GOTO 1790
3230 '
3240 *NO
3250 CN=CN+1:TTN=1
3260 LOCATE 64,12:COLOR 3:PRINT"残念でした。"
3270 PCMPLAY NO_S%,120
3280 XPP=XP:YPP=YP
3290 *CHECK
3300 IF TT=<10 THEN Q=TT :GOTO *M0
3310 IF TT>10 AND TT=<20 THEN Q=TT-10:GOTO *M1
3320 IF TT>20 AND TT=<30 THEN Q=TT-20:GOTO *M2
3330 IF TT>30 AND TT=<40 THEN Q=TT-30:GOTO *M3
3340 IF TT>40 AND TT<50 THEN Q=TT-40:GOTO *M4
3350 *WRITE_NO
3360 LOCATE 55,13:COLOR 1:PRINT"そこは『";A$;"』です。"
3370 GOSUB *COUNT
3380 GOSUB *KIROKU
3390 WAIT 70
3400 CIRCLE (XPP,YPP),6,5,,,,F,XOR
3410 WAIT 250
3420 CIRCLE (XPP,YPP),6,5,,,,F,XOR
3430 LOCATE 64,12:COLOR 3:PRINT" "
3440 LOCATE 55,13:COLOR 1:PRINT" "
3450 IF QQN=1 THEN GOTO 3810
3460 GOTO 1790
3470 '
3480 *COUNT
3490 CT=CY+CN
3500 CC=INT((CY/CT)*100)
3510 CG=INT(CC*1.5!):IF CG>150 THEN CG=150
3520 LOCATE 63,18:PRINT " "
3530 LOCATE 67,19:PRINT " "
3540 LOCATE 63,18:COLOR 1:PRINT "(";CY;"/";CT;") "
3550 LOCATE 67,19:COLOR 1:PRINT CC
3560 LINE (451, 381)-(601, 406),PSET,%8,B
3570 LINE (451, 381)-(450+CG,406),PSET,%8,BF,%11
3580 LINE (451+CG,381)-(601, 406),PSET,%8,BF,%13
3590 RETURN
3600 '
3610 '** 確認 選択 **
3620 MOUSE 5:CLS 4
3630 LINE(464,107)-(586,145),PSET,%13,BF
3640 LINE(451,381)-(601,406),PSET,%8,BF,%13
3650 LOCATE 55,6 :COLOR 2:PRINT"間違いを確かめますか?"
3660 LOCATE 58,7 :COLOR 1:PRINT" 確かめます。"
3670 LOCATE 58,8 :COLOR 1:PRINT" 確かめません。"
3680 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
3690 X=MOUSE(4,0):Y=MOUSE(5,0)
3700 IF X>39 AND X<60 AND Y>50 AND Y<69 THEN GOTO *MENU_E
3710 IF X>73 AND X<93 AND Y>50 AND Y<69 THEN GOTO *OWARI_E
3720 IF X>505 AND X<573 AND Y>135 AND Y<145 THEN GOTO 3760
3730 IF X>505 AND X<588 AND Y>153 AND Y<167 THEN GOTO 3900
3740 GOTO 3690
3750 '
3760 '** 確認 ROOTINE **
3770 MOZI=1:GOTO *MOZI
3780 PNO=KIRN-1:QQN=1:CY=0:CN=0
3790 FOR J=0 TO PNO
3800 QQ=KIR(J):GOTO 1730
3810 NEXT J
3820 MOUSE 5:CLS 4
3830 '
3840 LINE(464,107)-(586,145),PSET,%13,BF
3850 LINE(451,381)-(601,406),PSET,%8,BF,%13
3860 LOCATE 55,5 :COLOR 2:PRINT"もう一度"
3870 LOCATE 55,6 :COLOR 2:PRINT"間違いを確かめますか?"
3880 GOTO 3660
3890 '
3900 '** END 選択 **
3910 'LINE(464,107)-(586,145),PSET,%13,BF
3920 'LINE(451,381)-(601,406),PSET,%8,BF,%13
3930 MOUSE 5:CLS 4:ERASE KIR:ERASE NFW
3940 LOCATE 56,6 :COLOR 2:PRINT"続けますか?"
3950 LOCATE 58,7 :COLOR 1:PRINT" 続けます。"
3960 LOCATE 58,8 :COLOR 1:PRINT" 終わります。"
3970 MOUSE 0:MOUSE 1,596,353,1
3980 X=MOUSE(4,0):Y=MOUSE(5,0)
3990 IF X>39 AND X<60 AND Y>50 AND Y<69 THEN GOTO *MENU_E
4000 IF X>73 AND X<93 AND Y>50 AND Y<69 THEN GOTO *OWARI_E
4010 IF X>505 AND X<573 AND Y>135 AND Y<145 THEN GOTO 1150
4020 IF X>505 AND X<588 AND Y>153 AND Y<167 THEN GOTO 4070
4030 GOTO 3980
4040 '
4070 MOUSE 5:CLS 4
4080 LOCATE 55,6 :COLOR 2:PRINT"メニュ-に戻りますか?"
4090 LOCATE 55,7 :COLOR 1:PRINT" 戻ります。"
4100 LOCATE 55,8 :COLOR 1:PRINT" 戻らず終わります。"
4110 MOUSE 0:MOUSE 1,596,353,1
4120 X=MOUSE(4,0):Y=MOUSE(5,0)
4130 IF X>39 AND X<60 AND Y>50 AND Y<69 THEN GOTO *MENU_E
4140 IF X>73 AND X<93 AND Y>50 AND Y<69 THEN GOTO *OWARI_E
4150 IF Y>135 AND Y<145 THEN 4220
4160 IF Y>153 AND Y<167 THEN 4260
4170 GOTO 4120
4180 '
4190 *MENU_E
4200 MOUSE 5:ERASE KIR:ERASE NFW
4210 *MENU_1
4220 CHAIN "B_MENU2.BAS",,ALL
4230 RUN "B_MENU2.BAS"
4240 '
4250 *OWARI_E
4260 CHAIN "B_END.BAS",,ALL
4270 RUN "B_END.BAS"
4280 '
4290 *KIROKU
4300 KIR(KIRN)=QQ:KIRN=KIRN+1
4310 RETURN
4320 '
4330 '
4340 *SIRABERU
4350 IF SIR=1 THEN CLS 4:GOTO 4420
4360 'LINE(441,101)-(601,146),PSET,%13,BF
4370 'CLS 4
4380 '
4390 LOCATE 55,8 :COLOR 2:PRINT" クイズ中断中 "
4400 LOCATE 57,9 :COLOR 1:PRINT" 調べモードです。":GOTO 4440
4410 '
4420 LOCATE 55,6 :COLOR 2:PRINT"クイズ中断中 "
4430 LOCATE 57,8 :COLOR 1:PRINT"調べモードです。"
4440 LOCATE 61,2 :COLOR 2:PRINT"県名クイズ"
4450 LOCATE 55,4 :COLOR 2:PRINT"確 認"
4460 LOCATE 55,11:COLOR 2:PRINT"県 名"
4470 BN=1:GOTO *POINT
4480 '
4490 *SIRABE_WRITE
4500 LOCATE 15,22:COLOR 3:PRINT SPACE$(50)
4510 FOR T=5 TO 2 STEP -1
4520 LOCATE 55,13:COLOR T:PRINT"そこは『";A$;"』です。"
4530 WAIT 25
4540 NEXT
4550 WAIT 50:GOTO *POINT
4560 '
4570 *MODORU
4580 IF SIR=1 THEN GOTO *MENU_GAMEN'
4590 LOCATE 55,6 :COLOR 2:PRINT SPACE$(18)
4600 LOCATE 57,8 :COLOR 1:PRINT SPACE$(18)
4610 LOCATE 57,9 :COLOR 1:PRINT SPACE$(18)
4620 LOCATE 55,11:COLOR 2:PRINT SPACE$(18)
4630 LOCATE 55,13:COLOR T:PRINT SPACE$(22)
4640 LOCATE 61,2 :COLOR 2:PRINT"県名クイズ"
4650 LOCATE 55,4 :COLOR 2:PRINT"問 題"
4660 LOCATE 61,8 :COLOR 2:PRINT"左クリックして"
4670 LOCATE 61,9 :COLOR 2:PRINT"下さい。"
4680 LOCATE 55,11:COLOR 2:PRINT"答 え"
4690 GOTO 1800
4700 '
4710 *MOUS
4720 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
4730 X=MOUSE(4,0):Y=MOUSE(5,0)
4740 LOCATE 30,19:PRINT X;Y
4750 GOTO 4730